ARGIND==1{
  tmp=substr($0,1,index($0,":"));
  if(match(tmp,/case \-.*\:/)){
    a=substr(tmp,RSTART+5,RLENGTH-6);
#    b=substr($0,RSTART,RLENGTH);
#    print a,RSTART,RLENGTH;
#    print b;
    option[a]=1;
    opt++;
  }
}
ARGIND==2&&$1{if(option[$1]==1){opt--;option[$1]=0}else{n++;extra[n]=$1}}
END{
  if(opt){
    print opt" option(s) from the script missing helpmessage:";
    for(i in option){
      if(option[i]){print i};
    }
  }else{print "All options have their helpmessage"};
  if(n){
    print n" extra item(s) in the help file:";
    for(i=1;i<=n;i++){
      print extra[i];
    }
  }else{print "No extra helpmessage without an option"};
}
